WNGZWZSC0120G TESTFLGT.WKZ> SHEETS5 gfffff 433333 gfffff 433333 gfffff aiueo kkkkk .on repaint call JTF.SCZ:DrawLogo() end repaint s 2.0 Osaka Copyright ASCII Corporation. Helvetica July. 31 1992 Helvetica Kyoto Kyoto Kyoto BUTTON INFORMATION 0on repaint call JTF.SCZ:ret_button() end repaint 2on repaint call JTF.SCZ:right_button() end repaint 1on repaint call JTF.SCZ:left_button() end repaint 1on repaint call JTF.SCZ:home_button() end repaint folder file_sep page_counter home_action quit_actionD TFOpenX inc_page dec_page exit_buttone home_button left_button d_left_ right_button d_right9 ret_button} d_ret about\ DrawLogo button_info JTF.SCZ - ( HyperScript functions Copyright (C) 1991 ASCII Corpration 1991/11/2 define folder, file_sep,mac define page_counter function home_action() { repaint object "home" } repaint off while right( name() , 12 ) <> "TESTFLGT.WKZ" close now end while repaint window repaint on page_counter = 0 end function function quit_action() close now page_counter = 0 end function function TFOpen(wname,dorepaint) if dorepaint repaint off end if open folder & file_sep & "SHEETS" & file_sep & wname zoom window unselect tool sheet if dorepaint repaint window repaint on end if end function function inc_page() page_counter = int(row()/35) page_counter = page_counter + 1 if not page_counter go to cell a1 else go to cell makecell(1,page_counter*35) end if end function {inc_page} function dec_page() page_counter = int(row()/35) page_counter = page_counter - 1 if page_counter <= 0 go to cell a1 page_counter = 0 else go to cell makecell(1,page_counter*35) end if end function {dec_page} function exit_button() { drawing "EXIT" button } viewport(0,0)(1,1) square window(0,0)(11,11) fill bg black(); fill pattern 20 paint rectangle (0,2)(5,10) viewport (.4,.2)(1,.9) square window (0,0)(4,4) open polygon move (4,1);draw (4,3);draw(2,3);draw(2,4);draw(0,2);draw(2,0);draw(2,1);draw(4,1) close polygon fill bg black() fill bg blue() fill pattern 4 paint polygon kill polygon viewport(0,0)(1,1) square window(0,0)(11,11) open polygon move (0,2); draw(4.5,1); draw(4.5,9); draw(0,10); draw(0,2) close polygon fill fg black() fill bg yellow() fill pattern 4 paint polygon kill polygon fill bg white(); fill pattern 20 paint rectangle(3.5,5)(4,5.5) end function function home_button() {drawing "home" button" } viewport (0,0)(1,1) square window (-1,-1)(10,10) paint oval (6.5,8.5)(8,9.5) paint rectangle (5.5,5)(7,7.5) open polygon move (5,0);draw (10,0);draw(10,3.3);draw(7.5,7);draw(5,3.5);draw(5,0) close polygon fill bg white();fill pattern 20 paint polygon;kill polygon open polygon move (5,3.5);draw (7.5,7);draw(2.5,7);draw(0,3.5);draw(5,3) close polygon fill fg black();fill bg red();fill pattern 4 paint polygon;kill polygon fill bg white();fill pattern 4 paint rectangle(0,0)(5,3.5) fill bg white();fill pattern 20 paint rectangle (1.7,1)(3.3,2.6) move (2.5,1) draw (2.5,2.6) move(1.7,1.8) draw(3.3,1.8) end function function left_button() {leftbutton} viewport (0,0)(1,1) square window (-0.75,-0.25)(4.25,4.75) call d_left() {fill bg black()} message "aiueo" fill pattern 23 paint polygon kill polygon square window (-0.5,-0.5)(4.5,4.5) call d_left() fill bg red() fill pattern 20 message "kkkkk" paint polygon kill polygon end function function d_left() open polygon move (4,1) draw (4,3) draw(2,3) draw(2,4) draw(0,2) draw(2,0) draw(2,1) draw(4,1) close polygon end function function right_button() {right button} viewport (0,0)(1,1) square window (-0.75,-0.25)(4.25,4.75) call d_right() {fill bg black()} fill pattern 23 paint polygon kill polygon square window (-0.5,-0.5)(4.5,4.5) call d_right() fill bg red() fill pattern 20 paint polygon kill polygon end function function d_right() open polygon move (0,1) draw (0,3) draw(2,3) draw(2,4) draw(4,2) draw(2,0) draw(2,1) draw(0,1) close polygon end function function ret_button() {Return button} viewport (0,0)(1,1) square window (-1.5,0)(7.5,9) call d_ret() {fill bg black()} fill pattern 23 paint polygon kill polygon square window (-1,-1)(8,8) call d_ret() fill bg blue() fill pattern 20 paint polygon kill polygon end function function d_ret() open polygon move (6,1) draw(7,2) draw (7,7) draw(4,7) draw(4,4) draw(2,4) draw(2,5) draw(-0.5,2.5) draw(2,0) draw(2,1) draw(6,1) close polygon end function function about() new modal dialog box at (-1,-1)(4.5inch, 1.4inch) add push button "OK" at (3.7inch, 1inch)+(0.5inch, 0.3inch) dialog default push button add custom button at (0 inch,0inch)+(4.5inch,0inch) add custom button at (1.85 inch,0.1inch)+(0inch,1.2inch) add custom button at (0inch, 0.1inch)+(1.8inch, 1.4inch) script "on repaint call JTF.SCZ:DrawLogo() end repaint" no line border add text " s 2.0" at (2 inch,0.1inch)+(1.5inch,0.2inch) no line border text font "Osaka" text style "B" add text "Copyright ASCII Corporation." at (2 inch,0.4inch)+(2.5inch,0.2inch) no line border text font "Helvetica" add text "July. 31 1992" at (2 inch,0.7inch)+(2.5inch,0.2inch) no line border text font "Helvetica" use dialog box end function function DrawLogo() viewport (0,0)(1,1) square window (0,0)(1,1) open polygon move (0,1) draw (1,1) draw (0.5,0.2) draw (0,1) close polygon fill bg rgb(255,0,0) fill polygon kill polygon move (0.07,0.75) text size 32 text color white() text font "Kyoto" draw text "W" move (0.37,0.84) text size 18 text color white() text font "Kyoto" draw text "ING" move (0.67,0.75) text size 32 text color white() text font "Kyoto" draw text "Z" end function function button_info() new modal dialog box at (-1,-1)(4.3inch,3.8inch) add text "BUTTON INFORMATION" at (1.0inch,0.2inch)+(2.5inch, 0.5inch) no line border text style "B" text color Blue() add custom button at (0.1inch,0.6inch)+(4.1inch,0inch) add custom button at (0.3inch,0.8inch)+(0.5inch,0.5inch) script "on repaint call JTF.SCZ:ret_button() end repaint" no line border add text " B" at (1.0inch,0.8inch)+(3inch, 0.5inch) no line border add custom button at (0.3inch,1.5inch)+(0.5inch,0.5inch) script "on repaint call JTF.SCZ:right_button() end repaint" no line border add text " B" at (1.0inch,1.5inch)+(3inch, 0.5inch) no line border add custom button at (0.3inch,2.2inch)+(0.5inch,0.5inch) script "on repaint call JTF.SCZ:left_button() end repaint" no line border add text " B" at (1.0inch,2.2inch)+(3inch, 0.5inch) no line border add custom button at (0.3inch,2.92 inch)+(0.5inch,0.5inch) script "on repaint call JTF.SCZ:home_button() end repaint" no line border add text " B" at (1.0inch,2.9inch)+(3inch, 0.5inch) no line border add push button "OK" at (3.5inch,3.4inch)+(0.5inch,0.3inch) dialog default push button use dialog box end function